{NeoBook Function}
'###############################
' Author: Andrei Solodyankin (as3856) 
' mail : as3856@rambler.ru
' www/neobooker.ru
'###############################

Language=VBScript
Comment=      -.
Param=[Model]|Text|  ( )
Param=[Size]|Text|  ( )
Param=[DriveID]|Text|    ( )
Param=[USBLen]|Text| USB- (.)
{End}
On Error Resume Next

Dim wmiDiskDrive, wmiDiskDrives, wmiUSBHub, wmiUSBHubs, i, PnPID2, PnPID, k

Set wmiDiskDrives = GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
Set wmiUSBHubs = GetObject("winmgmts:").InstancesOf("Win32_USBHub")
k = 0
i = 0
For Each wmiDiskDrive In wmiDiskDrives
  If wmiDiskDrive.InterfaceType = "USB" Then
     For Each wmiUSBHub In wmiUSBHubs
     Exit For
     Next
     PnPID = Left (wmiDiskDrive.PnPDeviceID, Len(wmiDiskDrive.PnPDeviceID)-2)
     PnPID2 = Right (PnPID, 1)
     If PnPID2 <> "&" Then
     
     k = k + 1
     
     publication.nbSetVar "[%0]",k
     
     publication.nbSetVar "[USBLen]",k
    
     publication.nbSetVar "[[Model][%0]]",wmiDiskDrive.Model
   
     publication.nbSetVar "[[Size][%0]]",wmiDiskDrive.Size
  
     publication.nbSetVar "[[DriveID][%0]]",wmiDiskDrive.PnPDeviceID
   
     End If

     i = i + 1
  End If
 Next
